* lisp/emulation/edt-mapper.el: In batch mode, error rather than hang.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 15562a0bfcd85b09882addf5a97e2b3a8c349386..0cac85f2e1f5e69308f1d3aac74539286e30a87b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-05-11  Glenn Morris  <rgm@gnu.org>
 
+       * emulation/edt-mapper.el: In batch mode, error rather than hang.
+
        * term.el (term-set-escape-char): Make it idempotent.
 
 2013-05-10  Leo Liu  <sdl.web@gmail.com>

diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index 5ddb9513f0a1fa172904390b7d53b22f6f1db967..138e3e6d0da400f163cbe894229b7692cb22d669 100644 (file)
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -96,6 +96,10 @@
 
 ;;; Code:
 
+;; Otherwise it just hangs.  This seems preferable.
+(if noninteractive
+    (error "edt-mapper cannot be loaded in batch mode"))
+
 ;;;
 ;;;  Decide Emacs Variant, GNU Emacs or XEmacs (aka Lucid Emacs).
 ;;;  Determine Window System, and X Server Vendor (if appropriate).